﻿
Option Strict On

Imports System.Configuration

Namespace Configuration
	
	Public Class PluginCollection
		Inherits ConfigurationElementCollection


		Protected Overloads Overrides Function CreateNewElement() As System.Configuration.ConfigurationElement
            Return New PluginElement()
        End Function

        Protected Overrides Function GetElementKey(ByVal element As System.Configuration.ConfigurationElement) As Object
            Return CType(element, PluginElement).Assembly 
        End Function


        Public Shared Function ToList(ByVal pc As PluginCollection) As List(Of PluginElement)

            Dim lope As New List(Of PluginElement)

            For Each pe As PluginElement In pc
                lope.Add(pe)
            Next

            Return lope
        End Function


	End Class
	
End Namespace
